home *** CD-ROM | disk | FTP | other *** search
/ SuperModels in the Rainforest / SuperModels in the Rainforest.iso / rain.dxr / 00494.ls < prev    next >
Encoding:
Text File  |  1995-10-13  |  1.1 KB  |  49 lines
  1. on mouseDown
  2.   global gsCleanUpHandler, giWhereIWas, name, orange, purple, yellow, rainy
  3.   set name to 0
  4.   set giWhereIWas to "rainforest"
  5.   buttonLogic()
  6.   if the result = 1 then
  7.     do(gsCleanUpHandler)
  8.     set the visible of sprite 2 to 1
  9.     if the machineType <> 256 then
  10.       rainfade()
  11.     end if
  12.     if the machineType = 256 then
  13.       if the frame = 43 then
  14.         nothing()
  15.       else
  16.         if rainy = 1 then
  17.           set the movieRate of sprite 3 to 0
  18.           set rainy to 0
  19.         else
  20.           repeat with x = 3 to 5
  21.             if the visible of sprite x = 1 then
  22.               set the movieRate of sprite x to 0
  23.               next repeat
  24.             end if
  25.             nothing()
  26.           end repeat
  27.         end if
  28.       end if
  29.       set gbVideoUp to 0
  30.     else
  31.       set gbVideoUp to 0
  32.     end if
  33.     unLoad(139)
  34.     unLoad(176, 183)
  35.     unLoad(522)
  36.     unLoad(519)
  37.     unLoad(168, 175)
  38.     unLoad(446, 460)
  39.     unLoad(426, 459)
  40.     unLoad(520)
  41.     unLoad(155)
  42.     set orange to 0
  43.     set purple to 0
  44.     set yellow to 0
  45.     puppetSprite(2, 0)
  46.     go("PhotoAlbum")
  47.   end if
  48. end
  49.